Top 10k strings from Diet (1983)(DK'Tronics).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
2 p$=("pounds"
2 in;count;" No.";b$(o,3
2 e$="small"
2 e$="large"
2 cwu=cwu+e(d,9
2 c$="female"
2 INPUT PERSONAL DATA
2 ;"Copy to printer ? y/n ";
2 )+("pound"
2 "11";"= ";a(
2 "1";"Press any key to continue":
2 "1";"Any more changes to menu? y/n ";
1 y$="ideal"
1 wl;" lb. this week."''
1 week=week+
1 twl=ws-wc:
1 sp=(c*d)-(cu-
1 n;".";b$(x,3
1 in;n;".";b$(n+
1 diet
1 cwu=cwu-treats:
1 cwu=cwu+treats:
1 cws=cws-treats:
1 cws=cws+treats:
1 cws=cwp-cwu
1 cu=cwu+e(d,9
1 count=count+
1 ccc??>=<;;:8764200+(('&$$#""!
1 a$''"You have forgotten to move Ramtop down. ie. Before loading program in working cassette enter as a direct command CLEAR 58199 Then LOAD"" "" in the normal manner."''"The next key you press will NEW the program.":
1 a$''"Target weight can be based on"'"average weight or ideal weight."
1 WEIGHT AT END OF WEEK
1 SPECIAL TREATS LIST
1 SCREENDUMP
1 R$PD^DRDRD
1 R$HDTDRDRNI
1 PERSONAL DATA
1 L$\XDXLDLH
1 L$HXP\L\LL
1 FINAL MENU
1 Evening Meal
1 DIETSCREEN
1 DIET
1 Created with Ramsoft MakeTZX
1 ;w3;" ";p$;"."
1 ;a$,,"You have selected sufficient treats this week already and must not have any more. ":
1 ;"We will now go back to help":
1 ;"To many calories";
1 ;"Select from this page ? y/n ";
1 ;"Save or Practice ? s/p ";
1 ;"More treats ? y/n ";
1 ;"Enter number off ";
1 ;"Enter age ";
1 ;"Do you require treats ? y/n ";
1 ;"CLEARED";
1 ;"BAR CHART";
1 ;"Any last minute changes? y/n ";
1 ;" to ";n-1
1 ;" Try again. ":
1 ; " calories per day.",,,"The computer will now select themenus for week ";week+
1 ; " calories per day."''"The computer will now select a complete week's menus.",,,"The menus will be selected for each day and at the end of the day's selection you will be ableto change any item to suit your personal taste.":
1 8888888888888888888888888888888@
1 ,,"You have put on ";
1 ,,"You have not lost or gained weight this week."''
1 ,,"You have lost ";wl;" lb. this week."''
1 );" day's menu."
1 );" years":
1 'a$''"Your menus total ";cwu;" calories","this week."''"You have ";cws;" calories in hand."''"Remember you should try to use up most of your calorie allowance.":
1 'a$''"The target weight for your","statistics is ";
1 ''"You now need to lose ";w3;" lbs","to get down to your target weight."
1 ''"You are in your target weight area."
1 ''"We will now move into week ";week+
1 '"You need to lose ";
1 '"You are allowed on average ";
1 '"Most diet tables use average weight."''"As people in the western world tend to be overweight the average is considered by many tobe too high"''"Ideal weight takes account of this."''"I would suggest that if you think you are more than 10 lbs overweight - Enter average."'"Otherwise - Enter ideal."
1 '"99.";b$(99
1 $R$DXPX\DLR)
1 $$R$TDPPPDRR)
1 "_____________":
1 "Your weight is right in the middle of the target area."''"No calorie adjustment required.":
1 "Your weight is in target area."''"To be exact 1lb. below target."''"No calorie adjustment required.":
1 "Your weight is in target area."''"To be exact 1lb. above target."''"No calorie adjustment required.":
1 "Your weight is going in the wrong direction."''"Make sure you are using up your full calorie allowance."''"We will increase your calorie allowance by 10% next week":
1 "Your metabolic rate is such thatin order to lose weight your calorie allowance will have to be reduced."''"The program will automatically take this into account in next week's cycle.":
1 "You have moved below target area."''"We must carefully monitor this.":
1 "You have moved above target area."''"We must carefully monitor this.":
1 "You have had such a large weightloss that you have passed right through the target area and are now theoretically underweight."''"Still this is easy to deal with and over the next week or so we will put matters right.":
1 "You have had such a large weightincrease that you have passed right through the target area and are now theoretically overweight."''"Still this is easy to deal with and over the next week or so we will put matters right.":
1 "You do not need to lose weight, you may still use the diet program but you can have more treats than those on diet.":
1 "You are moving towards target area."''"Keep it up.":
1 "You are in the target area."''"To be exact one pound below target weight."
1 "You are in the target area."''"To be exact one pound above target weight."
1 "You are allowed on average ";
1 "What can I say."''"You have not been very successful have you."''"I have to ask you, ""have you cheated and eaten any items not specified in your weeks diet."" ?":
1 "Well done."''"This is perfect."''"We are right in the middle of the target area and have static weight."''"Keep this up.":
1 "Well done."''"Slow but steady weight loss is best in the long term.":
1 "Week's Shopping List":
1 "Week's Shopping List"''
1 "Week ";week;" has now been completed."
1 "Very good weight loss."''"You will make good progress at this rate.":
1 "This is very rapid weight loss."''"I know you are keen but this is just a little bit to fast."''"Make sure you are using up your full calorie allowance from the special treats area.":
1 "PRACTICE ONLY":
1 "Okay so you have cheated."''"This does of course mean that any dieting carried out last week was wasted."''"Still do not despair at least you have been honest and can tryharder this week.":
1 "No comment.":
1 "I see you have not lost any weight this week."''"As an incentive to try harder we will reduce your calorie allowance by 5% next week.":
1 "I see that you are the same weight as last week."''"We will increase your calorie allowance by 5% next week.":
1 "First week over."
1 "Enter average/ideal ";
1 "Another week over."
1 "99")="99 Nothing ******* 000"
1 "94")="94 Packet of crisps 135"
1 "93")="93 Ryvita 2no 050"
1 "92")="92 Edam cheese 2oz 180"
1 "91")="91 Bakewell tart 200"
1 "90")="90 Evaporated milk 1oz 045"
1 "9";"Incorrect entry-Please try again":
1 "9";"Don't be silly - Try again":
1 "9")=h(d):
1 "9")=e(d,9
1 "9")=" 9 Lean ham 2oz 125"
1 "9")-h(d))>(c*d-cu)
1 "89")="89 Single cream 1oz 060"
1 "88")="88 Custard 150"
1 "87")="87 Jelly 075"
1 "86")="86 Cream caramel 5oz 155"
1 "85")="85 Peaches / Pears 3oz 075"
1 "84")="84 Fruit salad 3oz 060"
1 "83")="83 Prunes 3oz 090"
1 "82")="82 Apple pie 300"
1 "81")="81 Ice cream 3oz 150"
1 "80")="80 Glass of whiskey 050"
1 "8";"Wrist measurement(ins.)";
1 "8";"WELCOME BACK TO":
1 "8";"AS A WAY OF LIFE"
1 "8";"<6.25";
1 "8";"<5.25";
1 "8")=" 8 Boiled or Poached egg 1no 095"
1 "79")="79 Gin & tonic water 100"
1 "78")="78 Glass of dry sherry 055"
1 "77")="77 Glass of dry wine 080"
1 "76")="76 Half pint of beer 100"
1 "75")="75 Banana 6oz 080"
1 "74")="74 Peach 4oz 036"
1 "73")="73 Portion of marmalade/jam 040"
1 "72")="72 Gravy 2oz 025"
1 "71")="71 Rich tea biscuits 3no 105"
1 "70")="70 Milk for tea / coffee 4no 080"
1 "7";"Leave tape running":
1 "7")="Sun":
1 "7")=" 7 Weetabix & Milk 1no 155"
1 "7");" feet. ";a(
1 "69")="69 Sprinkling of sultanas 050"
1 "68")="68 Teaspoon of sugar 4no 200"
1 "67")="67 portion of Outline 055"
1 "66")="66 Portion of butter 080"
1 "65")="65 Slice of toast or bread 085"
1 "63")="63 Parmesan cheese sprinkle 030"
1 "62")="62 Cup-A-Soup 110"
1 "61")="61 Gls Dry wine or lager 080"
1 "60")="60 1 Orange 050"
1 "6. Frame";
1 "6";a$;",";'''" You are too young to diet.":
1 "6";"Item";
1 "6")="Sat":
1 "6")=" 6 Rice krispies & Milk 1oz 155"
1 "6");" inches.":
1 "59")="59 1 Banana 070"
1 "58")="58 1 Apple 050"
1 "57")="57 Fruit yogurt 150"
1 "56")="56 Poached egg 1 slc.toast 200"
1 "55")="55 Beans on 1 slc. toast 225"
1 "54")="54 Sardines on 1 slc. toast 225"
1 "53")="53 Tomatoes on 1 slc. toast 130"
1 "52")="52 2 Sausages & mustard 290"
1 "51")="51 Meat sandwich & pickle 270"
1 "50")="50 Prawn & lettuce sandwich 270"
1 "5. Weight";
1 "5";"WGT AT END OF WEEK"
1 "5";"WEEK'S SHOPPING LIST"
1 "5";"SPECIAL TREATS"
1 "5";"SEE YOU AT END OF WEEK":
1 "5";"SAVE"
1 "5";"REPEAT WEEKLY CYCLE"
1 "5";"PERSONAL DATA"
1 "5";"INITIALIZE"
1 "5";"IDEAL WEIGHT"
1 "5";"FINAL WEEK'S MENU"
1 "5";"DAYS MENU"
1 "5";"COMMENT"
1 "5";"CLEAR BAR CHART"
1 "5";"BAR CHART"
1 "5")="Fri":
1 "5")=" 5 Puffed wheat & Milk 1oz 180"
1 "5");" stone ";a(
1 "49")="49 Hamburger in a roll 260"
1 "48")="48 Cheese roll pickle onion 300"
1 "47")="47 Ham roll & pickle 300"
1 "46")="46 Omelette & Green salad 160"
1 "45")="45 Cottage cheese 3 Ryvita 180"
1 "44")="44 Baked beans 4oz 080"
1 "43")="43 Broccoli 4oz 015"
1 "42")="42 Runner beans 4oz 010"
1 "41")="41 Peas 4oz 055"
1 "40")="40 Cauliflower 4oz 015"
1 "4. Height";
1 "4")=1.025
1 "4")="Thu":
1 "4")=" 4 Cornflakes & Milk 1oz 180"
1 "4");" pounds.":
1 "39")="39 Carrots 3oz 020"
1 "38")="38 Cabbage 4oz 010"
1 "37")="37 Brussels sprouts 3oz 015"
1 "36")="36 Spaghetti 5oz 225"
1 "35")="35 Chips 6oz 390"
1 "34")="34 Mashed potato 4oz 150"
1 "33")="33 Roast potatoes 4oz 180"
1 "32")="32 Boiled potatoes 4oz 100"
1 "31")="31 Jacket potato butter 7oz 275"
1 "30")="30 Boiled rice 4oz 120"
1 "3. Sex";
1 "3";b$(n,4
1 "3")="Wed":
1 "3")=" 3 All-Bran & Milk 1oz 155"
1 "29";"Cal"
1 "29")="29 Baked cod 8oz 185"
1 "28")="28 Grilled plaice 6oz 085"
1 "27")="27 Kidneys 3oz 135"
1 "26";"large";
1 "26";">7.25"
1 "26";">6.25";
1 "26")="26 Meat pie 4oz 450"
1 "25")="25 Boiled ham 2oz 125"
1 "24")="24 Curried meat 3oz 165"
1 "23")="23 Stewed or Minced meat 3oz 165"
1 "22")="22 Chicken or Turkey 4oz 215"
1 "21")="21 Pork chop 3oz 276"
1 "20")="20 Grilled liver 4oz 345"
1 "2. Age";
1 "2";"Computing ";("1st"
1 "2")="Tue":
1 "2")=" 2 Fresh grapefruit 1/2 015"
1 "19")="19 Roast beef 2oz 218"
1 "18";"med";
1 "18"-twl+(stn*
1 "18")="18 Lamb cutlet 3oz 276"
1 "17")="17 Mince / Bolognese 6oz 250"
1 "16.";b$(63
1 "16")="16 Mushrooms 1oz 004"
1 "15";"6.25-7.25";
1 "15";"5.25-6.25";
1 "15")="15 Baked beans 4oz 080"
1 "14")="14 Tomato 2no 016"
1 "14");" stone ";lb;" ";p$
1 "13";"CODE":
1 "13")="13 Bacon rasher(back) 1no 080"
1 "12")="12 Bacon rasher(strky) 1no 050"
1 "11";"WELCOME TO"
1 "11";"= ";e$
1 "11";"= ";c$:
1 "11";"= ";a(1
1 "11";"= ";a$:
1 "11")="11 Pork or beef Sausage 1no 140"
1 "10";"SAVING DIET":
1 "10";" "
1 "10")="10 Fried / scrambled egg 1no 115"
1 "1. Name";
1 "1";a$,,"You have eaten sufficient this week already and unfortunately cannot have any treats. ":
1 "1";("Enter choice (item ";n-10
1 "1";"small";
1 "1";"You are exactly on target weight"
1 "1";"Which item of data is wrong (Enter 1 - 6) ";
1 "1";"To many calories-Try again."'"Not more than ";sp;" calories.":
1 "1";"Place blank cassette into tape recorder and set to record. When ready press any key. ":
1 "1";"Now the pounds ";
1 "1";"Now the inches. ";
1 "1";"No weight loss":
1 "1";"Male";
1 "1";"Ir data correct ? y/n ";
1 "1";"Frame size-small/med/large ";
1 "1";"Female";
1 "1";"Enter y/n ";
1 "1";"Enter male/female ";
1 "1";"Enter item no. reached when you got lost. The program will then continue from that point.";
1 "1";"Enter item No. (1 to 8) ";
1 "1";"Enter christian name ";
1 "1";"Do you want to send a copy of the WEEK'S MENUS to the printer? y/n ";
1 "1";"Do you want to send a copy of the SHOPPING LIST to the printer? y/n ";
1 "1";"Choose item No. required ";
1 "1";"Any changes to menu ? y/n ";
1 "1";" Enter weight. (stones only to start with) ";
1 "1";" Enter height. (feet only to start with) " ;
1 "1";" .",,,"The menus will be selected for each day and at the end of the day's selection you will be ableto change any item to suit your personal taste.":
1 "1";" Please leave tape running ":
1 "1";" Press any key to start":
1 "1",ct)=y+
1 "1","and repeat the cycle."
1 "1")=1.085
1 "1")=1.075
1 "1")=1.063
1 "1")="Mon":
1 "1")=" 1 Fresh fruit juice 4oz 045"
1 "1")+(c-t(
1 "1"));".";
1 "";"Calories in hand"'"this week = ";cws:
1 "";"> Larger than."
1 "";"< Smaller than.";
1 "";" ";d$(d);"."
1 " Total calories today = ";h(d)
1 " Total calories today = ";e(d,9
1 " Snack",," -----"
1 " Main Meal",," ---------"
1 " Breakfast",," ---------"
1 MENU WITHIN
1 "''" (Page ";d;" of 3.)"'':
1 ((((((((((((((((((((((((((((((((00000000000000000000000000000000((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((8((FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF((FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF((EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE((EEEEEEEEEEEEEEEEEEEEEEEEEEEEE@((FFFFFFFFFFFFFFFFFFFFFFFFFFFFF@@(FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF((EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE((EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE(8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF(8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8(8((((((((GGGGGGGGGGGG((((((((((
1